home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / lib / sh-libs.4th < prev    next >
Encoding:
Text File  |  1994-07-24  |  740 b   |  27 lines
  1. \
  2. \ sh_libs.4th ---    Library code for pfe, Linux' shared libraries.
  3. \            By Kevin Haddock.
  4. \
  5. \ (duz 22May94)
  6. \
  7.  
  8. \ =======================================================================
  9. \ Shared libraries for Linux
  10. \ =======================================================================
  11.  
  12. S" HOST-SYSTEM" ENVIRONMENT? DROP S" Linux" COMPARE 0= [IF]
  13.  
  14. \ creates shared library variable
  15. : GOT ( N _)   CREATE ,  DOES> ( a)  @ @ ;
  16.  
  17. \ creates shared library call
  18. : PLT ( N _)   CREATE ,  DOES> ( ... cw a - res)  @ CALL-C ;
  19.  
  20. [THEN]
  21.  
  22. \ =======================================================================
  23. \ end of sh-libs.4th
  24. \ =======================================================================
  25.  
  26. CR .( Linux shared library calls loaded. )
  27.